#!/usr/bin/env perl

BEGIN {
	push @INC,"libs";
}

use warnings;
use gri_frontend;
use gri_portal_config;
use Data::Dumper;

$x=new gri_frontend("globals_config.xml");
$y=$x->get_portal_meta_report_names("simon portal");
if(!defined($y)) {
	print gri_portal_config::error(),"\n";exit;
} else {
	print Dumper($y);
}
($z,$e)=$x->get_meta_report_type($y->[0]);
if(defined($e)) {
	print "Error: $e\n"; exit;
}
#$ha=$x->get_all_reports_for_meta_report_nn("simon portal",$y->[0],0,0,1);
my ($a1,$a2);
($a1,$a2)=$x->filter_meta_reports("simon portal",$y->[0]);
print "a1=",Dumper($a1);
print "a2=",Dumper($a2);


